home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / data / awkscrpt / wari.awk < prev    next >
Text File  |  1995-02-09  |  975b  |  44 lines
  1. BEGIN {
  2.     maxn=ARGC>1?ARGV[1]:9
  3.     maxn--
  4.     ARGV[1]=""
  5.     srand()
  6.     print "\x1b[2Jわりざんのおけいこ"
  7.     do {
  8.         nm++
  9.         n1=randint(maxn)+1
  10.         n2=randint(maxn)+1
  11.         mul=n1*n2
  12.         printf("\nだい %d もん    %g ÷ %g = ? ",nm,mul,n1)
  13.         while((input=getline)>0)
  14.             if($0==n2) {
  15.                 print "\x1b[2Jよくできました。(「Q」でおわり)"
  16.                 nr++
  17.                 break
  18.             } else if($0~/[?Hh]/) {
  19.                 print "ただしいこたえは",n2,"です。"
  20.                 nd++
  21.                 break
  22.             } else if($0~/[Qq]/) {
  23.                 exit
  24.             } else if($0=="") {
  25.                 printf("もういちど、どうぞ。:")
  26.             } else {
  27.                 printf("まちがえています。もういちど、どうぞ。:")
  28.                 nw++
  29.             }
  30.     } while(input>0)
  31. }
  32.  
  33. END {
  34.     nm--
  35.     printf("\nもんだいすう　　　　　　%d\n",nm)
  36.     printf("せいかいすう　　　　　　%d\n",nr)
  37.     printf("まちがえたかいすう　　　%d\n",nw)
  38.     printf("わからなかったかいすう　%d\n",nd)
  39.     if(nm>19 && nw==0 && nd==0)
  40.         printf("\nぜんもんせいかい！ あなたはてんさいです！\n")
  41. }
  42.  
  43. function randint(n) {return int(rand()*n)+1}
  44.